home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 15 / 015.d81 / plottext b demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  152 lines
  1. 1 rem  plottext
  2. 1000 ifl=0thenl=1:load"sysplotterb.o",8,1
  3. 1010 dr=49167:hl=49176:vl=49173
  4. 1020 sys49152:rem set graphics
  5. 1030 sys49158:rem clear graphics
  6. 1040 sys49161,0:rem set background black
  7. 1050 sys49164,7:rem set color yellow
  8. 1060 x=22:y=3:l$="the loadstar plottext and sysplotter routines":gosub1380
  9. 1065 syshl,22,290,11
  10. 1070 x=4:y=20:l$="a. speed in basic":gosub1380
  11. 1080 x=4:y=40:l$="b. speed with draw":gosub1380
  12. 1090 x=4:y=60:l$="c. speed with lines":gosub1380
  13. 1100 sysvl,18,67,120
  14. 1110 fory=20to26step2:syshl,121,136,y:next
  15. 1120 fory=40to46step2:syshl,121,188,y:next
  16. 1130 fory=60to66step2:syshl,121,221,y:next
  17. 1140 forxy=0to2*(NULL)step.04:x=160-38*cos(xy):y=160+27*sin(xy):sysdr,x,y:next
  18. 1150 fory=160to133step-1:sysdr,160,y:next
  19. 1160 xy=0:x=160:fory=160to135step-1:xy=xy+1:ifxy=2thenx=x+1:xy=0
  20. 1170 sysdr,x,y:next
  21. 1180 xy=0:x=160:fory=160to174step.5:xy=xy+1:ifxy=1thenx=x+1:xy=0
  22. 1190 sysdr,x,y:next
  23. 1200 x=163:y=136:l$="a":gosub1380
  24. 1210 x=135:y=160:l$="c":gosub1380
  25. 1220 x=182:y=149:l$="b":gosub1380
  26. 1230 x=113:y=191:l$="press space bar":gosub1380
  27. 1240 rem
  28. 1250 poke198,0
  29. 1260 getk$:ifk$=""then1260
  30. 1270 sys49155:rem ungraphics
  31. 1280 rem print"[147]"
  32. 1290 goto63000: rem   'end'
  33. 1300 rem ***********************
  34. 1310 rem *  -p-l-o-t-t-e-x-t-  *
  35. 1320 rem * set x to the horiz- *
  36. 1330 rem * ontal coordinate, y *
  37. 1340 rem * to the vertical.    *
  38. 1350 rem * set l$ to the string*
  39. 1360 rem * you want to draw.   *
  40. 1370 rem * then gosub here.    *
  41. 1380 rem * variables used:     *
  42. 1390 rem * x, y, xy, l, l$, k$ *
  43. 1400 rem * and dr.             *
  44. 1410 rem ***********************
  45. 1420 iflen(l$)<1thenreturn
  46. 1430 forxy=1tolen(l$):k$=mid$(l$,xy,1)
  47. 1440 ifk$=" "ork$="[160]"then1460
  48. 1450 gosub1490
  49. 1460 x=x+6:ifx>312thenx=0:y=y+8
  50. 1470 next
  51. 1480 return
  52. 1490 l=asc(k$)-64
  53. 1500 ifl<1thengosub1820:return
  54. 1510 onlgosub1550,1560,1570,1580,1590,1600,1610,1620,1630,1640,1650,1660,1670
  55. 1520 l=l-13:ifl<1then1540
  56. 1530 onlgosub1680,1690,1700,1710,1720,1730,1740,1750,1760,1770,1780,1790,1800
  57. 1540 return
  58. 1550 gosub2450:gosub2040:gosub2030:return
  59. 1560 gosub2020:gosub2070:gosub2080:gosub2220:gosub2090:gosub2100:return
  60. 1570 gosub2020:gosub2040:gosub2120:return
  61. 1580 gosub2020:gosub2110:gosub2080:gosub2060:return
  62. 1590 gosub1600:gosub2120:return
  63. 1600 gosub2020:gosub2040:gosub2070:return
  64. 1610 gosub1570:gosub2130:gosub2100:return
  65. 1620 gosub2450:gosub2070:return
  66. 1630 gosub2140:return
  67. 1640 gosub2150:gosub2060:gosub2050:return
  68. 1650 gosub2020:gosub2160:return
  69. 1660 gosub2020:gosub2120:return
  70. 1670 gosub2450:gosub2190:return
  71. 1680 gosub2450:gosub2200:return
  72. 1690 gosub2110:gosub2060:gosub2080:gosub2210:return
  73. 1700 gosub1600:gosub2090:return
  74. 1710 gosub1690:gosub2230:return
  75. 1720 gosub1700:gosub2230:return
  76. 1730 gosub2080:gosub2070:gosub2220:gosub2100:gosub2240:return
  77. 1740 gosub2140:gosub2040:return
  78. 1750 gosub2450:gosub2060:return
  79. 1760 gosub2250:return
  80. 1770 gosub2450:gosub2270:return
  81. 1780 gosub2300:gosub2280:return
  82. 1790 gosub2300:gosub2330:return
  83. 1800 gosub2040:gosub2120:gosub2320:return
  84. 1810 remend of alphabet
  85. 1820 ifk$="$"thengosub2410:return
  86. 1830 ifk$="%"thengosub2380:return
  87. 1840 ifk$=","thengosub2370:return
  88. 1850 ifk$="-"thengosub2360:return
  89. 1860 ifk$="."thengosub2350:return
  90. 1870 l=l+17:ifl<1then1890
  91. 1880 onlgosub1900,1910,1920,1940,1950,1960,1970,1980,1990,2010
  92. 1890 return
  93. 1900 gosub1690:gosub2320:return
  94. 1910 gosub2140:sysdr,x+1,y+1:return
  95. 1920 gosub2120:gosub2080:gosub2090:gosub2070:sysdr,x,y+1
  96. 1930 sysvl,y+4,y+5,x:return
  97. 1940 gosub2080:gosub2070:gosub2060:gosub2090:gosub2100:return
  98. 1950 gosub2030:gosub2330:gosub2340:return
  99. 1960 gosub2040:gosub2340:gosub2070:gosub2100:gosub2060:return
  100. 1970 gosub2210:gosub2080:gosub2070:gosub2060:gosub2100:return
  101. 1980 gosub2040:gosub2320:sysdr,x,y+6:return
  102. 1990 gosub2080:gosub2070:gosub2060:gosub2090:gosub2100:gosub2240
  103. 2000 sysvl,y+4,y+5,x:return
  104. 2010 gosub2110:gosub2080:gosub2070:gosub2060:gosub2240:return
  105. 2020 sysvl,y,y+6,x:return
  106. 2030 syshl,x,x+4,y+3:return
  107. 2040 syshl,x,x+4,y:return
  108. 2050 sysvl,y,y+6,x+4:return
  109. 2060 syshl,x+1,x+3,y+6:return
  110. 2070 syshl,x+1,x+3,y+3:return
  111. 2080 syshl,x+1,x+3,y:return
  112. 2090 sysvl,y+1,y+2,x+4:return
  113. 2100 sysvl,y+4,y+5,x+4:return
  114. 2110 sysvl,y+1,y+5,x+4:return
  115. 2120 syshl,x,x+4,y+6:return
  116. 2130 syshl,x+2,x+4,y+3:return
  117. 2140 sysvl,y,y+6,x+2:return
  118. 2150 sysvl,y+3,y+6,x:return
  119. 2160 sysdr,x+4,y:sysdr,x+3,y+1:sysdr,x+2,y+2:sysdr,x+1,y+3
  120. 2170 gosub2230
  121. 2180 return
  122. 2190 sysdr,x+1,y+1:sysdr,x+3,y+1:sysdr,x+2,y+2:sysdr,x+2,y+3:return
  123. 2200 xx=0:foryy=2to4:xx=xx+1:sysdr,x+xx,y+xx:next
  124. 2210 sysvl,y+1,y+5,x:return
  125. 2220 syshl,x+1,x+3,y+6:return
  126. 2230 sysdr,x+2,y+4:sysdr,x+3,y+5:sysdr,x+4,y+6:return
  127. 2240 sysvl,y+1,y+2,x:return
  128. 2250 sysvl,y,y+4,x:sysvl,y,y+4,x+4:syshl,x+1,x+3,y+5
  129. 2260 sysdr,x+2,y+6:return
  130. 2270 sysvl,y+3,y+4,x+2:syshl,x+1,x+3,y+5:return
  131. 2280 sysvl,y+5,y+6,x:sysvl,y+5,y+6,x+4:syshl,x+1,x+3,y+4
  132. 2290 return
  133. 2300 sysvl,y,y+1,x:sysvl,y,y+1,x+4:syshl,x+1,x+3,y+2
  134. 2310 sysdr,x+2,y+3:return
  135. 2320 yy=5:forxx=0to4:sysdr,x+xx,y+yy:yy=yy-1:next:return
  136. 2330 sysvl,y+4,y+6,x+2:return
  137. 2340 sysvl,y,y+3,x:return
  138. 2350 syshl,x+2,x+3,y+5:syshl,x+2,x+3,y+6:return
  139. 2360 gosub2070:return
  140. 2370 sysdr,x+3,y+4:sysdr,x+3,y+5:sysdr,x+2,y+6:return
  141. 2380 gosub2320
  142. 2390 syshl,x,x+1,y:syshl,x,x+1,y+1
  143. 2400 syshl,x+3,x+4,y+5:syshl,x+3,x+4,y+6:return
  144. 2410 gosub2070:syshl,x+1,x+4,y+1
  145. 2420 syshl,x,x+3,y+5
  146. 2430 sysdr,x,y+2:sysdr,x,y+5:sysdr,x+4,y+1:sysdr,x+4,y+4
  147. 2440 sysdr,x+2,y:sysdr,x+2,y+6:return
  148. 2450 gosub2020:gosub2050:return
  149. 63000 print"[147][204]oading [211][217][211][208][204][207][212] menu..."
  150. 63010 print"[144]load"chr$(34)"hello"chr$(34)",8":print"run"
  151. 63020 poke631,13:poke632,13:poke198,2:        end
  152.